home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / Scrap.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  1.6 KB  |  72 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        Scrap.mod
  3.  
  4.      Contains:    Scrap Manager Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE Scrap;
  23.  
  24. IMPORT SYSTEM, Types;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. TYPE
  31.     ScrapStuff* = RECORD
  32.         scrapSize*:                LONGINT;
  33.         scrapHandle*:            Types.Handle;
  34.         scrapCount*:                INTEGER;
  35.         scrapState*:                INTEGER;
  36.         scrapName*:                Types.StringPtr;
  37.     END;
  38.  
  39.     PScrapStuff* = POINTER TO ScrapStuff;
  40.     ScrapStuffPtr* = POINTER TO ScrapStuff;
  41.  
  42.  
  43. PROCEDURE InfoScrap*(): ScrapStuffPtr;
  44.     (*$IF NOT GENERATINGCFM*)
  45.     INLINE PASCAL $A9F9;
  46.     (*$END*)
  47. PROCEDURE UnloadScrap*(): LONGINT;
  48.     (*$IF NOT GENERATINGCFM*)
  49.     INLINE PASCAL $A9FA;
  50.     (*$END*)
  51. PROCEDURE LoadScrap*(): LONGINT;
  52.     (*$IF NOT GENERATINGCFM*)
  53.     INLINE PASCAL $A9FB;
  54.     (*$END*)
  55. PROCEDURE GetScrap*(hDest: Types.Handle; theType: Types.ResType; VAR offset: LONGINT): LONGINT;
  56.     (*$IF NOT GENERATINGCFM*)
  57.     INLINE PASCAL $A9FD;
  58.     (*$END*)
  59. PROCEDURE ZeroScrap*(): LONGINT;
  60.     (*$IF NOT GENERATINGCFM*)
  61.     INLINE PASCAL $A9FC;
  62.     (*$END*)
  63. PROCEDURE PutScrap*(length: LONGINT; theType: Types.ResType; source: (*ΔΔUNIVΔΔ*) Types.Ptr): LONGINT;
  64.     (*$IF NOT GENERATINGCFM*)
  65.     INLINE PASCAL $A9FE;
  66.     (*$END*)
  67.  
  68. (* $ALIGN RESET*)
  69. (* $POP*)
  70.  
  71.  END Scrap.
  72.